Public Class frmMain

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim frmLeague As New frmLeague
        frmLeague.MdiParent = Me
        frmLeague.Show()

        Dim frmCoach As New frmCoach
        frmCoach.MdiParent = Me
        frmCoach.Show()

        Dim frmDivision As New frmDivision
        frmDivision.MdiParent = Me
        frmDivision.Show()

        Dim frmTeam As New frmTeam
        frmTeam.MdiParent = Me
        frmTeam.Show()
    End Sub
End Class